Import Bestsoft.Dash


Class Kernel
     Start_Sub()
        SetBackgroundColor(Black)
        SetBackgroundColor(Blue)
        SetBackgroundColor(Green)
        SetBackgroundColor(Cyan)
        SetBackgroundColor(Red)
        SetBackgroundColor(Magenta)
        SetBackgroundColor(light_Gray)
        SetBackgroundColor(Dark_Gray)
        SetBackgroundColor(Light_Blue)
     End_Start_Sub
    Create.New.Sub Block
    Go to block
End_Class